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\¢ 47 DECLARATIONS 
(3) 82 BASSPOWHJ) = BASIC hfloat ** long 
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| BASSPOWHJ ; BASIC hfloat ** Longword routine 15-SEP-1984 23:59:57 VAX/VMS Macro v04-00 Page 1 
1-002 ° gaSEp-1984 10:36520 LOASRTe. sarioascouny.mar:? 2% cl) 
0 -TITLE BASSPOWHJ ; BASIC hfloat ** Longword routine 
~IDENT /1-002/ 3; File: BASPOWHJ.MAR Edit:PLL1002 


MARBARAABAAASRALALAALLALERLL SALAS LESE SESS ESSE ESE RARE SEER REE RE EEE EERE ESE SEE ES 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPHENT CORPORATION, MAYNARD, MASSACHUSETTS. 
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OFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND gh 
’ eee WITH THE TERMS OF SUCH LICENSE AND WITH ' THE 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 

DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


‘ 
-! 
< 
° 
,! 
= 
: 
: 
7 
. 
. 
: 
: 
° 
. 
; 
; 
P 
e 
! 
e 
; PRRBRABABAAAASZALALAAAZALAELASLESESESERERERERE SERA RES ESE EES E REE R EE ER ERE REE ESS SS 
e 

3+ 

3 FACILITY: Basic Support Library 

ABSTRACT: 


This module contains entry points to rye te ex velar int 
(** or *) in BASIC-PLUS-2 for hfloat ** LONGWO 


ENVIRONMENT: User Mode, AST Reentrant 


AUTHOR: P. Levesque , CREATION DATE: 5-Oct-81 
MODIFIED BY: 


1-001 - Original 
1-002 - Fix some typos (wrong OTS$ name). PLL 7-Oct-81 
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BASSPOWHJ ; BASIC hfloat ** Longword routine 15-SEP-1984 23:59:57 VAX/VMS Macro Vv04-00 Page 
1-002 BECLARATIONS ° 5-30-1382 93:32:30 LBASRTL. SRE IBASPOWHY MAR: 1 . 3) 
000 47 ~SBTT! DECLARATIONS 
00 ry 3 
00 49 ; INCLUDE FILES: 
00 50 ; 
000 1 
44 ¢ ; 
484 t 3 EXTERNAL DECLARATIONS: 
0000 2? -DSABL GBL ; Prevent undeclared 
4444 6 3 symbols from being 
B98 2f ; automatically global. 
itd 3g -EXTRN OTSS$POWHJ_R3 ; OTS$ hfloat ** int exponentation 
0000 60 -EXTRN BASSK_DIVBY_ZER ; Divide by Zero 
0000 61 -EXTRN BASS$SSTOP ; Error reporting routine 
0000 66 
0000 65 ; 
0000 64 ; MACROS: 
0000 65 ; 
0000 66 
0000 67 ; 
0000 68 ; EQUATED SYMBOLS: 
0000 69 ; 
0000 70 
0000 ) 3 
0000 Le; 3; OWN STORAGE: 
0000 73; 
0000 74 
0000 ree 
it 6 3 PSECT DECLARATIONS: 
00000000 78 -PSECT _BASSCODE PIC, USR, CON, REL, LCL, SHR, - 
444 t° EXE, RD, NOWRT, LONG 


ae 


BASSPOWHJ ; BA 
1-002 SSP 


D 13 
float ** longword routine 15 
BASS$P 6 


P=1984 23:59:57 VAX/VMS v04-00 P 
- BASIC hfloat ** long Pa} 984 $33 (18 _ 3) 


Macr 
4:20 (CBASRTL.SRCIBASPOWHJ .MAR; 1 
ye -SBTTL BASSPOWHJ - 
FUNCTIONAL DESCRIPTION: 


This routine takes BASE ** EXP, using the following table 
for unusual cases: 


BASE > 8 Call OTSSPOWHJ, normal case. 
= Q, Return 0.0. 


ASIC hfloat ** Long 


0 

0 Return 1.0. 

0 Error: divide by zero 

en Call OTSSPOWHJ with -BASE 

d Call OTS$POWHJ with -BASE, negate result 


CALLING SEQUENCE: 
CALL result.wh.v = BASSPOWHJ (base.rh.v, exponent.rl.v) 


4 
‘ 
8 
9 
0 
4 
33 
94 
95 
96 
97 
98 
99 
139 ; INPUT PARAMETERS: 
00000004 196 base = 4 
00000014 ; 19? exponent = 20 
000 105 IMPLICIT INPUTS: 
000 106 
000 107 NONE 
006 108 
000 109 ; OUTPUT PARAMETERS: 
000 110 
000 111 
000 NG 
000 11 
000 114 
000 115 NONE 
000 116 
000 117 ; FUNCTION VALUE: 
000 118 ; COMPLETION CODES: 
000 119 
000 120 hfloat result of exponentiation 
000 \$] 
000 1 § ; SIDE EFFECTS: 
000 12 : 
000 124 Will signal Divide By Zero if its arguments are bad, 
i ! 5 and OTSSPOWHJ may also signal. 
B85 
0000' 000 1 3 BASSPOWHJ: : «MASK OTSS$POWHJ_R3 ; Entry point 
00 130 ; Since this routine uses no 
000 131 ; registers and usually transfers 
94 1 ¢ 3; control to OTSSPOWHJ, we copy 
00 13 ; its register save mask and then 
000 134 ; JMP past its save mask and only 
8 0 135 3 Save the registers once 
04 AC 7360 0 1 § TSTH base (AP) ; Test base relationship to zero 
06 «#1 3 06 1 BLEQ : If base leq 0, do case one ysis 
00000002'GF 17 0008 138 JMP G*OTSSPOWHJ_R3+2 ; Transfer control to the OTS 


, 
| 
| 

; IMPLICIT OUTPUTS: 

l 
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| PASseowns ; BASIC hfloat ** Longueré routine iF ot Sat 4 9 93:32:37 AX/VMS Macro V04-00 Page 
-002 BASSPOWHJ - BASIC hfloat ** Long 66-SEP-1984 10:34:20 (CBASRTL.SRCIJBASPOWHJ.MAR; 1 


1 
| pe 17? . 3; routine to do exponentiation 
8 —E 141 : Come here if the base is less than or equal to zero. We must filter 
9 ; 126 : several special cases, as described above. 
18 13 QOOE 144 is: BEQL = 4$ ; Branch if base = 0 
4 AC _DD 4 145 PUSHL exponent (AP) 3; Stack EXP as parameter to OTS$POWHJ 
7E 04 ag 72FD 1 108 MNEGH base(AP), -(SP) 3 Stack -base also 
Q0000000'GF 0 FB 001 14 CALLS 43, G*OTSSPOWHJ_R3 ; Call integer power routines 
04 14 AC _€9 OQOIF 148 BLBC exponent (AP) ,2$ ; Branch if exponent even 
50 50 72FD 0023 149 MNEGH RO, RO 3 Exponent odd negate the result 
04 00 i 130 2s: RET : and return with it. 
0028 13 : Come here if the base is equal to zero. The value we return depends 
B058 137 3 upon the sign of the exponent. 
14 AC D5 00 5 155 4s: TSTL exponent (AP) ; Test the exponent against zero 
0B 19 0028 138 BLSS 93 3; Branch if exponent l[ss 
04 13 baSe 13 s BEQL $ 3; Branch if exponent is 0 
BOSE 159 : Come here if the base is zero and the exponent is greater than zero. 
Bose 199 3 BASIC defines this as 0.0. 
50 7CFD O0¢F 16¢ ; CLRH = RO : RO, R1 = 0.0 
04 00 2 16 RET ; Return to caller 
003 164 3+ 
0033 165 ; Come here if the base is zero and the exponent is zero. BASIC defines 
0033 166; this as 1.0. 
0033 167 ;- 
50 08 70FD 0033 168 58: MOVH = #1, -RO ; RO, R1 = 1.0 
04 0037 #4169 RET 3; Return to caller. 
0038 170 ;+ 3 
0038 171 ; Come here if the base is zero and the exponent is less than zero. 
OO Re Ze 3; BASIC defines this as an error. 
7E 00°S8F 9A 0038 174 6S: MOVZBL #BASS$K_DIVBY_ZER, -(SP) ; Divide by zero 
00000000'GF 01 FB a8 He CALLS #1, G*BASS$STOP ; Report error, never return. 
0043 «177° END 


v04-00 Page 5 
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SEP=1984 10:54:20 (CBASRTL.SRCJBASPOWHJ.MAR; 1 (3) 


5 
Symbol table é6- 


BASSSSTOP eteeeeee KX 00 
BASSK_DIVBY_ZER steeeeee XX 00 
BASSPOWHJ 00000000 RG 01 
00000004 
EXPONENT 00000014 
OTSSPOWHJ_R3 eetereee KX 00 


teseceses won e wees + 
! Psect synopsis ! 
trom r eww ewan em moa mae + 
PSECT name Allocation PSECT No. Attributes 


« 4. 00000000 <( 0.) 00 ¢ 0.) NOPIC USR CON ABS LCi NOSHR NOEXE NORD NOWRT NOVEC BYTE 
_BASSCODE 00000043 ( 67.) 01 ¢ .) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 
poco esc e new eee eee esos + 
! Performance indicators : 
Goeweooeeeococeeoeoecocoecon 
Phase Page faults CPU Time Elapsed Time 


Initialization 31 00:00:00.08 00:00:00.37 
Command processing 131 00:00:00.51 00:00:01.90 
Pass 70 00:00:00.47 00:00:01.01 
Symbol table sort 0 00:00:00.00 00:00:00.00 
ass 46 00:00:00.31 00:00:00.66 
Symbol table output 2 00:00:00.01 00:00:00.01 
Psect synopsis output 2 00:00:00.02 00:00:00.02 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 284 00:00:01.41 00:00:04.04 


The working set Limit was 750 pages. 4 

1894 bytes (4 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 6 non-local and 5 local symbols. 
177 source Lines were read in Pass 1, produc ing 8 object records in Pass 2. 

0 pages of virtual memory were used to define 0 macros. 


Serr, + 
H Macro Library statistics ; 
Macro Library name Macros defined 
-$255$DUA28: CSYSLIBISTARLET.MLB; 2 0 


0 GETS were required to define 0 macros. 
There were no errors, warnings or information messages. 
MACRO/ENABLE=SUPPRESSION/DISABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:BASPOWHJ/OBJ=OBJ$:BASPOWHJ MSRC$:BASPOWHJ/UPDATE=(ENHS: BASPOWH ) 


c-- 
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